P r i n t   " R e s o n a n c e   f r e q u e n c y   c a l c u l a t i o n " 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 V 1   =   I n p u t   " C a p a c i t a n c e   i n   p F   ? " 
 
 V 1   =   V 1   /   1 0 0 0 0 0 0 0 0 0 0 0 0 
 
 V 2   =   I n p u t   " I n d u c t a n c e   i n   u H   ? " 
 
 V 2   =   V 2   /   1 0 0 0 0 0 0 
 
 
 
 V 3   =   1   /   S q r t ( V 1   *   V 2 ) 
 
 V 4   =   V 3   /   ( 2   *   M a t h _ P I ) 
 
 
 
 I f   v 4   > =   1 0 0 0 0 0 0 
 
 	 S 1   =   V 4   /   1 0 0 0 0 0 0   +   "   M H z " 
 
 E l s e 
 
 	 S 1   =   V 4   +   "   H z " 
 
 E n d I f 
 
 
 
 P r i n t   " R e s o n a n c e   f r e q u e n c y   i s :   "   +   S 1 
 
 S t o p 
 
 
 
 
 
 ' W A T C H   V 1 
 
 ' W A T C H   V 2 
 
 ' W A T C H   V 3 
 
 ' W A T C H   V 4 
 
 ' W A T C H   S 1 
 
 ' E X E C   v 1   =   " 1 . 2 3 "   :   s 1   =   " 1 . 2 3 " 
 
 